home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
tag_bbs
/
dvtag.zip
/
BINKLEY.BAT
< prev
next >
Wrap
DOS Batch File
|
1991-12-22
|
4KB
|
150 lines
Rem -=[ Binkley batch file for The Abacus - Node 3 ]=-
@echo off
:Reset
echo ..........................Starting up Binkley.............................
c:
cd\bbs\s
tagswap 1 c:\bbs\s\ c:\bbs\s\
del logon2.msg
murphy > logon2.msg
if exist \bbs\gfiles\nettoss.log goto matrix
if exist \bbs2\gfiles\nettoss.log goto matrix
if exist \bbs3\gfiles\nettoss.log goto matrix
if exist \bbs4\gfiles\nettoss.log goto matrix
modem 3 on
cd\bbs3\binkley
bt
:levels
if errorlevel 193 goto reset
if errorlevel 192 goto tag
if errorlevel 154 goto end
if errorlevel 153 goto reset
if errorlevel 150 goto mailin
if errorlevel 144 goto tag
if errorlevel 125 goto reset
if errorlevel 100 goto log
if errorlevel 96 goto tag
if errorlevel 90 goto binklog
if errorlevel 80 goto qmodem
if errorlevel 70 goto mailout
if errorlevel 60 goto events
if errorlevel 50 goto amax
if errorlevel 40 goto renumber
if errorlevel 30 goto mailin
if errorlevel 24 goto tag
if errorlevel 20 goto tag
if errorlevel 12 goto tag
if errorlevel 10 goto tag
if errorlevel 6 goto mailout
if errorlevel 5 goto getfiles
if errorlevel 4 goto renumber
if errorlevel 2 goto events
if errorlevel 1 goto end
:mailout
modem 3 off>nul
if exist c:\bbs\in\nodediff.a* gosub nodeproc
call mailout
goto reset
:mailin
modem 3 off>nul
cd\bbs3\binkley
if exist c:\bbs\in\*.fle gosub ticfle
if exist c:\bbs\in\*.tic gosub tictic
qm toss scan pack link -cc:\bbs3\binkley\qm.cfg -ac:\bbs3\binkley\areas.bbs
if exist c:\bbs\out\*.$$* del c:\bbs\out\*.$$*
if exist c:\bbs\in\f159_*.* move c:\bbs\in\f159_*.* d:\lists
if exist c:\bbs\in\*.zip move c:\bbs\in\*.zip d:\files
if exist c:\bbs\in\*.arc move c:\bbs\in\*.arc d:\files
if exist c:\bbs\in\*.lzh move c:\bbs\in\*.lzh d:\files
if exist c:\bbs\in\*.sdn move c:\bbs\in\*.sdn d:\files
if exist c:\bbs\in\*.arj move c:\bbs\in\*.arj d:\files
goto reset
:matrix
modem 3 off>nul
cd\bbs3\binkley
qm pack
if exist c:\bbs\gfiles\nettoss.log del c:\bbs\gfiles\nettoss.log
if exist c:\bbs2\gfiles\nettoss.log del c:\bbs2\gfiles\nettoss.log
if exist c:\bbs3\gfiles\nettoss.log del c:\bbs3\gfiles\nettoss.log
if exist c:\bbs4\gfiles\nettoss.log del c:\bbs4\gfiles\nettoss.log
goto reset
:ticfle
cd\bbs3\binkley
ticket -me:\msgs\announce -tAbacus_Users -FTAG_Distribution_System -Lc:\bbs3\binkley\fle.log -STDS_Files_Received -aTAGUTIL -aTAGDIST -aTAGDOORS
ticket -me:\msgs\announce -p -tDeb_Ackley -FTAG_Beta_Distribution_System -Lc:\bbs3\binkley\fle.log -STAG_Beta_Files_Received -aBETA
ticket -me:\msgs\announce -tAbacus_Users -FSDN_Distribution_System -Lc:\bbs3\binkley\fle.log -SSDN_Files_Received -aSDN_SYST -aSDN_MISC -aSDN_WORD -aSDN_DATA -aSDN_COMM -aSDN_UTIL -aSDN_GAME -aSDN_BUSI
ticket -me:\msgs\announce -tAbacus_Users -FSDS_Distribution_System -Lc:\bbs3\binkley\fle.log -SSDS_Files_Received -aSDSBINK -aSDSMAX
ticket -me:\msgs\announce -tAbacus_Users -FN159Files_Distribution_System -Lc:\bbs3\binkley\fle.log -SNet159_Files_Received -aFIDONEWS -aNODELIST -aSCAN1 -aSCAN2 -aCOSTS -aN159ELST -aN159FILS -aLBBSLIST
ticket -me:\msgs\announce -tAbacus_Users -FDVNET_Distribution_System -Lc:\bbs3\binkleyfle.log -SDVNET_Files_Received -a100-850
:tictic
cd\bbs3\binkley
sds2dir -FC:\bbs\multi -L c:\bbs3\binkley\tic.log
tick >> c:\bbs3\binkley\tic.log
qm scan pack -ftick.bbs
echo Tic or Fle files received >> c:\bbs\s\user1.msg
return
:getfiles
call get
goto reset
:renumber
modem 3 off>nul
call xnum
goto reset
:events
modem 3 off>nul
call events3
goto reset
:nodeproc
modem 3 off>nul
call nodeproc
return
:log
modem 3 off>nul
s
goto reset
:binklog
modem 3 off>nul
b
goto reset
:qmodem
cdd c:\qmodem\3
qmodem
goto reset
:bonk
modem 3 off>nul
cd \bbs\nodelist
bonk
goto reset
:amax
modem 3 off>nul
am3
goto reset
:tmlocal
modem 3 off>nul
t
goto reset
:tag
c:
cd\bbs3
:end